home *** CD-ROM | disk | FTP | other *** search
/ The Frank Lloyd Wright Companion / The Frank Lloyd Wright Companion.iso / fullmacapps / macfllwc_small.sit / MacFLLWC_Small / flw.mvb.rsrc / CODE_31_QH AboutBox.txt < prev    next >
Text File  |  1995-09-30  |  46KB  |  837 lines
  1. # near model CODE resource
  2. # jump table entries: 65480-65486 (7 of them)
  3. 00000000  FFFF                     .extension 0xFFF // unimplemented
  4. 00000002  FFC8                     .extension 0xFC8 // unimplemented
  5. 00000004  0000 08C4                ori.b      D0, 0xC4
  6. 00000008  3B7C FFFF B3F6           move.w     [A5 - 0x4C0A], 0xFFFF
  7. 0000000E  70FF                     moveq.l    D0, 0xFFFFFFFF
  8. 00000010  2B40 B3E4                move.l     [A5 - 0x4C1C], D0
  9. 00000014  42AD B3EC                clr.l      [A5 - 0x4C14]
  10. 00000018  42AD B3E8                clr.l      [A5 - 0x4C18]
  11. 0000001C  4AAF 0004                tst.l      [A7 + 0x4]
  12. 00000020  6720                     beq        +0x22 /* 00000042 */
  13. 00000022  302D 135E                move.w     D0, [A5 + 0x135E]
  14. 00000026  48C0                     ext.l      D0
  15. 00000028  0680 0000 0081           addi.l     D0, 0x81
  16. 0000002E  3B40 B3F4                move.w     [A5 - 0x4C0C], D0
  17. 00000032  41ED DBAA                lea.l      A0, [A5 - 0x2456]
  18. 00000036  2B48 B3E0                move.l     [A5 - 0x4C20], A0
  19. 0000003A  7001                     moveq.l    D0, 0x01
  20. 0000003C  2B40 B3F0                move.l     [A5 - 0x4C10], D0
  21. 00000040  601C                     bra        +0x1E /* 0000005E */
  22. label00000042:
  23. 00000042  302D 135E                move.w     D0, [A5 + 0x135E]
  24. 00000046  48C0                     ext.l      D0
  25. 00000048  0680 0000 0080           addi.l     D0, 0x80
  26. 0000004E  3B40 B3F4                move.w     [A5 - 0x4C0C], D0
  27. 00000052  41ED FFF0                lea.l      A0, [A5 - 0x10]
  28. 00000056  2B48 B3E0                move.l     [A5 - 0x4C20], A0
  29. 0000005A  42AD B3F0                clr.l      [A5 - 0x4C10]
  30. label0000005E:
  31. 0000005E  7000                     moveq.l    D0, 0x00
  32. 00000060  102D 81A0                move.b     D0, [A5 - 0x7E60]
  33. 00000064  7202                     moveq.l    D1, 0x02
  34. 00000066  B081                     cmp.l      D0, D1
  35. 00000068  6D18                     blt        +0x1A /* 00000082 */
  36. 0000006A  594F                     subq.w     A7, 4
  37. 0000006C  302D 135E                move.w     D0, [A5 + 0x135E]
  38. 00000070  48C0                     ext.l      D0
  39. 00000072  0680 0000 0080           addi.l     D0, 0x80
  40. 00000078  3F00                     move.w     -[A7], D0
  41. 0000007A  AA0C                     syscall    GetPixPat
  42. 0000007C  205F                     movea.l    A0, [A7]+
  43. 0000007E  2B48 B3DC                move.l     [A5 - 0x4C24], A0
  44. label00000082:
  45. 00000082  2F2D B3DC                move.l     -[A7], [A5 - 0x4C24]
  46. 00000086  486D FFE8                pea.l      [A5 - 0x18]
  47. 0000008A  486D FFD0                pea.l      [A5 - 0x30]
  48. 0000008E  302D 135E                move.w     D0, [A5 + 0x135E]
  49. 00000092  48C0                     ext.l      D0
  50. 00000094  0680 0000 0087           addi.l     D0, 0x87
  51. 0000009A  3F00                     move.w     -[A7], D0
  52. 0000009C  4EAD DEB0                jsr        [A5 - 0x2150]
  53. 000000A0  4AAD B3DC                tst.l      [A5 - 0x4C24]
  54. 000000A4  4FEF 000E                lea.l      A7, [A7 + 0xE]
  55. 000000A8  670A                     beq        +0xC /* 000000B4 */
  56. 000000AA  2F2D B3DC                move.l     -[A7], [A5 - 0x4C24]
  57. 000000AE  AA08                     syscall    DisposePixPat/DisposPixPat
  58. 000000B0  42AD B3DC                clr.l      [A5 - 0x4C24]
  59. label000000B4:
  60. 000000B4  4E75                     rts
  61. 000000B6  48E7 1830                movem.l    -[A7], D3,D4,A2,A3
  62. 000000BA  514F                     subq.w     A7, 8
  63. 000000BC  246F 001C                movea.l    A2, [A7 + 0x1C]
  64. 000000C0  2F0A                     move.l     -[A7], A2
  65. 000000C2  4EAD DD40                jsr        [A5 - 0x22C0]
  66. 000000C6  3F3C 0001                move.w     -[A7], 0x1
  67. 000000CA  A887                     syscall    TextFont
  68. 000000CC  3F3C 0009                move.w     -[A7], 0x9 /* '\t' */
  69. 000000D0  A88A                     syscall    TextSize
  70. 000000D2  3F3C 0001                move.w     -[A7], 0x1
  71. 000000D6  A888                     syscall    TextFace
  72. 000000D8  422D B2DC                clr.b      [A5 - 0x4D24]
  73. 000000DC  206D 1342                movea.l    A0, [A5 + 0x1342 /* export_612 */]
  74. 000000E0  4E90                     jsr        [A0]
  75. 000000E2  205F                     movea.l    A0, [A7]+
  76. 000000E4  2648                     movea.l    A3, A0
  77. 000000E6  2008                     move.l     D0, A0
  78. 000000E8  6700 0086                beq        +0x88 /* 00000170 */
  79. 000000EC  302B 006C                move.w     D0, [A3 + 0x6C]
  80. 000000F0  B06D B416                cmp.w      D0, [A5 - 0x4BEA]
  81. 000000F4  667A                     bne        +0x7C /* 00000170 */
  82. 000000F6  486D B2DC                pea.l      [A5 - 0x4D24]
  83. 000000FA  2F0B                     move.l     -[A7], A3
  84. 000000FC  4EAD E880                jsr        [A5 - 0x1780]
  85. 00000100  4A80                     tst.l      D0
  86. 00000102  504F                     addq.w     A7, 8
  87. 00000104  676A                     beq        +0x6C /* 00000170 */
  88. 00000106  4A2D B2DC                tst.b      [A5 - 0x4D24]
  89. 0000010A  6764                     beq        +0x66 /* 00000170 */
  90. 0000010C  554F                     subq.w     A7, 2
  91. 0000010E  486D B2DC                pea.l      [A5 - 0x4D24]
  92. 00000112  A88C                     syscall    StringWidth
  93. 00000114  301F                     move.w     D0, [A7]+
  94. 00000116  48C0                     ext.l      D0
  95. 00000118  5C80                     addq.l     D0, 6
  96. 0000011A  3600                     move.w     D3, D0
  97. 0000011C  486D FFF8                pea.l      [A5 - 0x8]
  98. 00000120  3F3C 0009                move.w     -[A7], 0x9 /* '\t' */
  99. 00000124  2F0A                     move.l     -[A7], A2
  100. 00000126  4EAD DDE0                jsr        [A5 - 0x2220]
  101. 0000012A  486F 000A                pea.l      [A7 + 0xA]
  102. 0000012E  3F3C 0009                move.w     -[A7], 0x9 /* '\t' */
  103. 00000132  2F0A                     move.l     -[A7], A2
  104. 00000134  4EAD DDE8                jsr        [A5 - 0x2218]
  105. 00000138  382F 001A                move.w     D4, [A7 + 0x1A]
  106. 0000013C  48C4                     ext.l      D4
  107. 0000013E  3003                     move.w     D0, D3
  108. 00000140  48C0                     ext.l      D0
  109. 00000142  322F 0016                move.w     D1, [A7 + 0x16]
  110. 00000146  48C1                     ext.l      D1
  111. 00000148  2404                     move.l     D2, D4
  112. 0000014A  9481                     sub.l      D2, D1
  113. 0000014C  B480                     cmp.l      D2, D0
  114. 0000014E  4FEF 0014                lea.l      A7, [A7 + 0x14]
  115. 00000152  6C1C                     bge        +0x1E /* 00000170 */
  116. 00000154  3003                     move.w     D0, D3
  117. 00000156  48C0                     ext.l      D0
  118. 00000158  2204                     move.l     D1, D4
  119. 0000015A  9280                     sub.l      D1, D0
  120. 0000015C  3F41 0002                move.w     [A7 + 0x2], D1
  121. 00000160  4857                     pea.l      [A7]
  122. 00000162  3F3C 0009                move.w     -[A7], 0x9 /* '\t' */
  123. 00000166  2F0A                     move.l     -[A7], A2
  124. 00000168  4EAD DDF0                jsr        [A5 - 0x2210]
  125. 0000016C  4FEF 000A                lea.l      A7, [A7 + 0xA]
  126. label00000170:
  127. 00000170  486D FFD8                pea.l      [A5 - 0x28]
  128. 00000174  3F3C 0002                move.w     -[A7], 0x2
  129. 00000178  2F0A                     move.l     -[A7], A2
  130. 0000017A  4EAD DDE0                jsr        [A5 - 0x2220]
  131. 0000017E  486D FFD8                pea.l      [A5 - 0x28]
  132. 00000182  3F3C 0005                move.w     -[A7], 0x5
  133. 00000186  2F0A                     move.l     -[A7], A2
  134. 00000188  4EAD DDE0                jsr        [A5 - 0x2220]
  135. 0000018C  486D FFF8                pea.l      [A5 - 0x8]
  136. 00000190  3F3C 0004                move.w     -[A7], 0x4
  137. 00000194  2F0A                     move.l     -[A7], A2
  138. 00000196  4EAD DDE0                jsr        [A5 - 0x2220]
  139. 0000019A  486D FFE0                pea.l      [A5 - 0x20]
  140. 0000019E  3F3C 000A                move.w     -[A7], 0xA /* '\n' */
  141. 000001A2  2F0A                     move.l     -[A7], A2
  142. 000001A4  4EAD DDE0                jsr        [A5 - 0x2220]
  143. 000001A8  486D FFF8                pea.l      [A5 - 0x8]
  144. 000001AC  3F3C 0006                move.w     -[A7], 0x6
  145. 000001B0  2F0A                     move.l     -[A7], A2
  146. 000001B2  4EAD DDE0                jsr        [A5 - 0x2220]
  147. 000001B6  486D FFF8                pea.l      [A5 - 0x8]
  148. 000001BA  3F3C 0007                move.w     -[A7], 0x7
  149. 000001BE  2F0A                     move.l     -[A7], A2
  150. 000001C0  4EAD DDE0                jsr        [A5 - 0x2220]
  151. 000001C4  486D FFF8                pea.l      [A5 - 0x8]
  152. 000001C8  3F3C 0008                move.w     -[A7], 0x8
  153. 000001CC  2F0A                     move.l     -[A7], A2
  154. 000001CE  4EAD DDE0                jsr        [A5 - 0x2220]
  155. 000001D2  4EAD DD48                jsr        [A5 - 0x22B8]
  156. 000001D6  4FEF 004E                lea.l      A7, [A7 + 0x4E]
  157. 000001DA  4CDF 0C18                movem.l    D3,D4,A2,A3, [A7]+
  158. 000001DE  2E9F                     move.l     [A7], [A7]+
  159. 000001E0  4E75                     rts
  160. fn000001E2:
  161. 000001E2  2F0A                     move.l     -[A7], A2
  162. 000001E4  4FEF FFF0                lea.l      A7, [A7 - 0x10]
  163. 000001E8  594F                     subq.w     A7, 4
  164. 000001EA  3F2F 0022                move.w     -[A7], [A7 + 0x22]
  165. 000001EE  A9BC                     syscall    GetPicture
  166. 000001F0  205F                     movea.l    A0, [A7]+
  167. 000001F2  2448                     movea.l    A2, A0
  168. 000001F4  2008                     move.l     D0, A0
  169. 000001F6  6762                     beq        +0x64 /* 0000025A */
  170. 000001F8  204A                     movea.l    A0, A2
  171. 000001FA  A04A                     syscall    HNoPurge
  172. 000001FC  4857                     pea.l      [A7]
  173. 000001FE  3F2F 0020                move.w     -[A7], [A7 + 0x20]
  174. 00000202  2F2F 001E                move.l     -[A7], [A7 + 0x1E]
  175. 00000206  4EAD DDE8                jsr        [A5 - 0x2218]
  176. 0000020A  2052                     movea.l    A0, [A2]
  177. 0000020C  2F68 0002 0012           move.l     [A7 + 0x12], [A0 + 0x2]
  178. 00000212  2F68 0006 0016           move.l     [A7 + 0x16], [A0 + 0x6]
  179. 00000218  486F 0012                pea.l      [A7 + 0x12]
  180. 0000021C  302F 0018                move.w     D0, [A7 + 0x18]
  181. 00000220  48C0                     ext.l      D0
  182. 00000222  322F 0010                move.w     D1, [A7 + 0x10]
  183. 00000226  48C1                     ext.l      D1
  184. 00000228  9280                     sub.l      D1, D0
  185. 0000022A  3F01                     move.w     -[A7], D1
  186. 0000022C  302F 0018                move.w     D0, [A7 + 0x18]
  187. 00000230  48C0                     ext.l      D0
  188. 00000232  322F 0010                move.w     D1, [A7 + 0x10]
  189. 00000236  48C1                     ext.l      D1
  190. 00000238  9280                     sub.l      D1, D0
  191. 0000023A  3F01                     move.w     -[A7], D1
  192. 0000023C  A8A8                     syscall    OffsetRect
  193. 0000023E  2F0A                     move.l     -[A7], A2
  194. 00000240  486F 0016                pea.l      [A7 + 0x16]
  195. 00000244  A8F6                     syscall    DrawPicture
  196. 00000246  4AAF 002A                tst.l      [A7 + 0x2A]
  197. 0000024A  4FEF 000A                lea.l      A7, [A7 + 0xA]
  198. 0000024E  6706                     beq        +0x8 /* 00000256 */
  199. 00000250  486F 0008                pea.l      [A7 + 0x8]
  200. 00000254  A8A1                     syscall    FrameRect
  201. label00000256:
  202. 00000256  204A                     movea.l    A0, A2
  203. 00000258  A049                     syscall    HPurge
  204. label0000025A:
  205. 0000025A  4FEF 0010                lea.l      A7, [A7 + 0x10]
  206. 0000025E  245F                     movea.l    A2, [A7]+
  207. 00000260  4E75                     rts
  208. 00000262  48E7 1E20                movem.l    -[A7], D3,D4,D5,D6,A2
  209. 00000266  514F                     subq.w     A7, 8
  210. 00000268  246F 0022                movea.l    A2, [A7 + 0x22]
  211. 0000026C  3C2F 0020                move.w     D6, [A7 + 0x20]
  212. 00000270  0C46 0005                cmpi.w     D6, 0x5
  213. 00000274  661A                     bne        +0x1C /* 00000290 */
  214. 00000276  362D 135E                move.w     D3, [A5 + 0x135E]
  215. 0000027A  48C3                     ext.l      D3
  216. 0000027C  0683 0000 0080           addi.l     D3, 0x80
  217. 00000282  382D 135E                move.w     D4, [A5 + 0x135E]
  218. 00000286  48C4                     ext.l      D4
  219. 00000288  0684 0000 0089           addi.l     D4, 0x89
  220. 0000028E  6018                     bra        +0x1A /* 000002A8 */
  221. label00000290:
  222. 00000290  362D 135E                move.w     D3, [A5 + 0x135E]
  223. 00000294  48C3                     ext.l      D3
  224. 00000296  0683 0000 0081           addi.l     D3, 0x81
  225. 0000029C  382D 135E                move.w     D4, [A5 + 0x135E]
  226. 000002A0  48C4                     ext.l      D4
  227. 000002A2  0684 0000 0082           addi.l     D4, 0x82
  228. label000002A8:
  229. 000002A8  7000                     moveq.l    D0, 0x00
  230. 000002AA  102D 81A0                move.b     D0, [A5 - 0x7E60]
  231. 000002AE  7202                     moveq.l    D1, 0x02
  232. 000002B0  B081                     cmp.l      D0, D1
  233. 000002B2  6D30                     blt        +0x32 /* 000002E4 */
  234. 000002B4  594F                     subq.w     A7, 4
  235. 000002B6  3F03                     move.w     -[A7], D3
  236. 000002B8  A9BC                     syscall    GetPicture
  237. 000002BA  205F                     movea.l    A0, [A7]+
  238. 000002BC  2008                     move.l     D0, A0
  239. 000002BE  6724                     beq        +0x26 /* 000002E4 */
  240. 000002C0  4857                     pea.l      [A7]
  241. 000002C2  3F06                     move.w     -[A7], D6
  242. 000002C4  2F0A                     move.l     -[A7], A2
  243. 000002C6  4EAD DDE8                jsr        [A5 - 0x2218]
  244. 000002CA  486F 000A                pea.l      [A7 + 0xA]
  245. 000002CE  4EAD DE50                jsr        [A5 - 0x21B0]
  246. 000002D2  4A40                     tst.w      D0
  247. 000002D4  4FEF 000E                lea.l      A7, [A7 + 0xE]
  248. 000002D8  6604                     bne        +0x6 /* 000002DE */
  249. 000002DA  3004                     move.w     D0, D4
  250. 000002DC  6002                     bra        +0x4 /* 000002E0 */
  251. label000002DE:
  252. 000002DE  3003                     move.w     D0, D3
  253. label000002E0:
  254. 000002E0  3A00                     move.w     D5, D0
  255. 000002E2  6002                     bra        +0x4 /* 000002E6 */
  256. label000002E4:
  257. 000002E4  3A04                     move.w     D5, D4
  258. label000002E6:
  259. 000002E6  0C46 0005                cmpi.w     D6, 0x5
  260. 000002EA  6604                     bne        +0x6 /* 000002F0 */
  261. 000002EC  BA43                     cmp.w      D5, D3
  262. 000002EE  6704                     beq        +0x6 /* 000002F4 */
  263. label000002F0:
  264. 000002F0  7000                     moveq.l    D0, 0x00
  265. 000002F2  6002                     bra        +0x4 /* 000002F6 */
  266. label000002F4:
  267. 000002F4  7001                     moveq.l    D0, 0x01
  268. label000002F6:
  269. 000002F6  2F00                     move.l     -[A7], D0
  270. 000002F8  3F05                     move.w     -[A7], D5
  271. 000002FA  3F06                     move.w     -[A7], D6
  272. 000002FC  2F0A                     move.l     -[A7], A2
  273. 000002FE  4EBA FEE2                jsr        [PC - 0x11E /* 000001E2 */]
  274. 00000302  4FEF 0014                lea.l      A7, [A7 + 0x14]
  275. 00000306  4CDF 0478                movem.l    D3,D4,D5,D6,A2, [A7]+
  276. 0000030A  205F                     movea.l    A0, [A7]+
  277. 0000030C  5C4F                     addq.w     A7, 6
  278. 0000030E  4ED0                     jmp        [A0]
  279. 00000310  4FEF FFEA                lea.l      A7, [A7 - 0x16]
  280. 00000314  486F 000E                pea.l      [A7 + 0xE]
  281. 00000318  3F2F 001E                move.w     -[A7], [A7 + 0x1E]
  282. 0000031C  2F2F 0022                move.l     -[A7], [A7 + 0x22]
  283. 00000320  4EAD DDE8                jsr        [A5 - 0x2218]
  284. 00000324  2F6F 0018 000A           move.l     [A7 + 0xA], [A7 + 0x18]
  285. 0000032A  2F6F 001C 000E           move.l     [A7 + 0xE], [A7 + 0x1C]
  286. 00000330  486F 000A                pea.l      [A7 + 0xA]
  287. 00000334  2F3C 0001 0001           move.l     -[A7], 0x10001
  288. 0000033A  A8A9                     syscall    InsetRect
  289. 0000033C  486F 000A                pea.l      [A7 + 0xA]
  290. 00000340  A8A3                     syscall    EraseRect
  291. 00000342  7000                     moveq.l    D0, 0x00
  292. 00000344  102D 81A0                move.b     D0, [A5 - 0x7E60]
  293. 00000348  7202                     moveq.l    D1, 0x02
  294. 0000034A  B081                     cmp.l      D0, D1
  295. 0000034C  4FEF 000A                lea.l      A7, [A7 + 0xA]
  296. 00000350  6D00 00A0                blt        +0xA2 /* 000003F2 */
  297. 00000354  486F 000E                pea.l      [A7 + 0xE]
  298. 00000358  4EAD DE50                jsr        [A5 - 0x21B0]
  299. 0000035C  4A40                     tst.w      D0
  300. 0000035E  584F                     addq.w     A7, 4
  301. 00000360  6700 0090                beq        +0x92 /* 000003F2 */
  302. 00000364  4EAD DD70                jsr        [A5 - 0x2290]
  303. 00000368  3F7C 7777 000C           move.w     [A7 + 0xC], 0x7777 /* 'ww' */
  304. 0000036E  3F7C 7777 000A           move.w     [A7 + 0xA], 0x7777 /* 'ww' */
  305. 00000374  3F7C 7777 0008           move.w     [A7 + 0x8], 0x7777 /* 'ww' */
  306. 0000037A  486F 0008                pea.l      [A7 + 0x8]
  307. 0000037E  AA14                     syscall    RGBForeColor
  308. 00000380  3F2F 0010                move.w     -[A7], [A7 + 0x10]
  309. 00000384  302F 0014                move.w     D0, [A7 + 0x14]
  310. 00000388  48C0                     ext.l      D0
  311. 0000038A  5380                     subq.l     D0, 1
  312. 0000038C  3F00                     move.w     -[A7], D0
  313. 0000038E  A893                     syscall    MoveTo
  314. 00000390  3F2F 0010                move.w     -[A7], [A7 + 0x10]
  315. 00000394  3F2F 0010                move.w     -[A7], [A7 + 0x10]
  316. 00000398  A891                     syscall    LineTo
  317. 0000039A  302F 0014                move.w     D0, [A7 + 0x14]
  318. 0000039E  48C0                     ext.l      D0
  319. 000003A0  5580                     subq.l     D0, 2
  320. 000003A2  3F00                     move.w     -[A7], D0
  321. 000003A4  3F2F 0010                move.w     -[A7], [A7 + 0x10]
  322. 000003A8  A891                     syscall    LineTo
  323. 000003AA  4878 001E                push.l     0x1E
  324. 000003AE  A862                     syscall    ForeColor
  325. 000003B0  302F 0010                move.w     D0, [A7 + 0x10]
  326. 000003B4  48C0                     ext.l      D0
  327. 000003B6  5280                     addq.l     D0, 1
  328. 000003B8  3F00                     move.w     -[A7], D0
  329. 000003BA  302F 0014                move.w     D0, [A7 + 0x14]
  330. 000003BE  48C0                     ext.l      D0
  331. 000003C0  5380                     subq.l     D0, 1
  332. 000003C2  3F00                     move.w     -[A7], D0
  333. 000003C4  A893                     syscall    MoveTo
  334. 000003C6  302F 0014                move.w     D0, [A7 + 0x14]
  335. 000003CA  48C0                     ext.l      D0
  336. 000003CC  5380                     subq.l     D0, 1
  337. 000003CE  3F00                     move.w     -[A7], D0
  338. 000003D0  302F 0014                move.w     D0, [A7 + 0x14]
  339. 000003D4  48C0                     ext.l      D0
  340. 000003D6  5380                     subq.l     D0, 1
  341. 000003D8  3F00                     move.w     -[A7], D0
  342. 000003DA  A891                     syscall    LineTo
  343. 000003DC  302F 0014                move.w     D0, [A7 + 0x14]
  344. 000003E0  48C0                     ext.l      D0
  345. 000003E2  5380                     subq.l     D0, 1
  346. 000003E4  3F00                     move.w     -[A7], D0
  347. 000003E6  3F2F 0010                move.w     -[A7], [A7 + 0x10]
  348. 000003EA  A891                     syscall    LineTo
  349. 000003EC  4EAD DD78                jsr        [A5 - 0x2288]
  350. 000003F0  6006                     bra        +0x8 /* 000003F8 */
  351. label000003F2:
  352. 000003F2  486F 000E                pea.l      [A7 + 0xE]
  353. 000003F6  A8A1                     syscall    FrameRect
  354. label000003F8:
  355. 000003F8  2F2F 001C                move.l     -[A7], [A7 + 0x1C]
  356. 000003FC  4EBA 000C                jsr        [PC + 0xC /* 0000040A */]
  357. 00000400  4FEF 001A                lea.l      A7, [A7 + 0x1A]
  358. 00000404  205F                     movea.l    A0, [A7]+
  359. 00000406  5C4F                     addq.w     A7, 6
  360. 00000408  4ED0                     jmp        [A0]
  361. fn0000040A:
  362. 0000040A  48E7 1E30                movem.l    -[A7], D3,D4,D5,D6,A2,A3
  363. 0000040E  4FEF FFE8                lea.l      A7, [A7 - 0x18]
  364. 00000412  266F 0034                movea.l    A3, [A7 + 0x34]
  365. 00000416  7A00                     moveq.l    D5, 0x00
  366. 00000418  7800                     moveq.l    D4, 0x00
  367. 0000041A  302D B3F6                move.w     D0, [A5 - 0x4C0A]
  368. 0000041E  48C0                     ext.l      D0
  369. 00000420  4A80                     tst.l      D0
  370. 00000422  6C0C                     bge        +0xE /* 00000430 */
  371. 00000424  426D B3F6                clr.w      [A5 - 0x4C0A]
  372. 00000428  42AD B3EC                clr.l      [A5 - 0x4C14]
  373. 0000042C  6000 00B6                bra        +0xB8 /* 000004E4 */
  374. label00000430:
  375. 00000430  594F                     subq.w     A7, 4
  376. 00000432  A975                     syscall    TickCount
  377. 00000434  201F                     move.l     D0, [A7]+
  378. 00000436  90AD B3E4                sub.l      D0, [A5 - 0x4C1C]
  379. 0000043A  0C80 0000 00B4           cmpi.l     D0, 0xB4
  380. 00000440  6500 0240                bcs        +0x242 /* 00000682 */
  381. 00000444  7A01                     moveq.l    D5, 0x01
  382. 00000446  4AAD B3F0                tst.l      [A5 - 0x4C10]
  383. 0000044A  670C                     beq        +0xE /* 00000458 */
  384. 0000044C  700A                     moveq.l    D0, 0x0A
  385. 0000044E  B0AD B3E8                cmp.l      D0, [A5 - 0x4C18]
  386. 00000452  6E04                     bgt        +0x6 /* 00000458 */
  387. 00000454  7601                     moveq.l    D3, 0x01
  388. 00000456  602C                     bra        +0x2E /* 00000484 */
  389. label00000458:
  390. 00000458  4AAD B3F0                tst.l      [A5 - 0x4C10]
  391. 0000045C  671E                     beq        +0x20 /* 0000047C */
  392. 0000045E  4AAD B3EC                tst.l      [A5 - 0x4C14]
  393. 00000462  6618                     bne        +0x1A /* 0000047C */
  394. 00000464  554F                     subq.w     A7, 2
  395. 00000466  A861                     syscall    Random
  396. 00000468  301F                     move.w     D0, [A7]+
  397. 0000046A  7200                     moveq.l    D1, 0x00
  398. 0000046C  3200                     move.w     D1, D0
  399. 0000046E  2001                     move.l     D0, D1
  400. 00000470  7264                     moveq.l    D1, 0x64
  401. 00000472  4EAD D910                jsr        [A5 - 0x26F0]
  402. 00000476  720F                     moveq.l    D1, 0x0F
  403. 00000478  B081                     cmp.l      D0, D1
  404. 0000047A  6D04                     blt        +0x6 /* 00000480 */
  405. label0000047C:
  406. 0000047C  7000                     moveq.l    D0, 0x00
  407. 0000047E  6002                     bra        +0x4 /* 00000482 */
  408. label00000480:
  409. 00000480  7001                     moveq.l    D0, 0x01
  410. label00000482:
  411. 00000482  2600                     move.l     D3, D0
  412. label00000484:
  413. 00000484  4A83                     tst.l      D3
  414. 00000486  675C                     beq        +0x5E /* 000004E4 */
  415. 00000488  594F                     subq.w     A7, 4
  416. 0000048A  2F3C 434F 5245           move.l     -[A7], 0x434F5245 /* 'CORE' */
  417. 00000490  302D 135E                move.w     D0, [A5 + 0x135E]
  418. 00000494  48C0                     ext.l      D0
  419. 00000496  0680 0000 0082           addi.l     D0, 0x82
  420. 0000049C  3F00                     move.w     -[A7], D0
  421. 0000049E  A9A0                     syscall    GetResource
  422. 000004A0  205F                     movea.l    A0, [A7]+
  423. 000004A2  2448                     movea.l    A2, A0
  424. 000004A4  200A                     move.l     D0, A2
  425. 000004A6  673C                     beq        +0x3E /* 000004E4 */
  426. 000004A8  594F                     subq.w     A7, 4
  427. 000004AA  2F0A                     move.l     -[A7], A2
  428. 000004AC  4EAD D9AC                jsr        [A5 - 0x2654]
  429. 000004B0  201F                     move.l     D0, [A7]+
  430. 000004B2  E288                     lsr        D0, 1
  431. 000004B4  2800                     move.l     D4, D0
  432. label000004B6:
  433. 000004B6  554F                     subq.w     A7, 2
  434. 000004B8  A861                     syscall    Random
  435. 000004BA  301F                     move.w     D0, [A7]+
  436. 000004BC  7200                     moveq.l    D1, 0x00
  437. 000004BE  3200                     move.w     D1, D0
  438. 000004C0  2001                     move.l     D0, D1
  439. 000004C2  2204                     move.l     D1, D4
  440. 000004C4  4EAD D910                jsr        [A5 - 0x26F0]
  441. 000004C8  2600                     move.l     D3, D0
  442. 000004CA  B6AD D8EA                cmp.l      D3, [A5 - 0x2716]
  443. 000004CE  67E6                     beq        -0x18 /* 000004B6 */
  444. 000004D0  2B43 D8EA                move.l     [A5 - 0x2716], D3
  445. 000004D4  2003                     move.l     D0, D3
  446. 000004D6  D080                     add.l      D0, D0
  447. 000004D8  2052                     movea.l    A0, [A2]
  448. 000004DA  3830 0800                move.w     D4, [A0 + D0]
  449. 000004DE  7001                     moveq.l    D0, 0x01
  450. 000004E0  2B40 B3EC                move.l     [A5 - 0x4C14], D0
  451. label000004E4:
  452. 000004E4  4A44                     tst.w      D4
  453. 000004E6  6648                     bne        +0x4A /* 00000530 */
  454. 000004E8  594F                     subq.w     A7, 4
  455. 000004EA  2F3C 434F 5245           move.l     -[A7], 0x434F5245 /* 'CORE' */
  456. 000004F0  3F2D B3F4                move.w     -[A7], [A5 - 0x4C0C]
  457. 000004F4  A9A0                     syscall    GetResource
  458. 000004F6  205F                     movea.l    A0, [A7]+
  459. 000004F8  2448                     movea.l    A2, A0
  460. 000004FA  200A                     move.l     D0, A2
  461. 000004FC  6700 0184                beq        +0x186 /* 00000682 */
  462. 00000500  594F                     subq.w     A7, 4
  463. 00000502  2F0A                     move.l     -[A7], A2
  464. 00000504  4EAD D9AC                jsr        [A5 - 0x2654]
  465. 00000508  201F                     move.l     D0, [A7]+
  466. 0000050A  E288                     lsr        D0, 1
  467. 0000050C  2600                     move.l     D3, D0
  468. 0000050E  302D B3F6                move.w     D0, [A5 - 0x4C0A]
  469. 00000512  48C0                     ext.l      D0
  470. 00000514  B083                     cmp.l      D0, D3
  471. 00000516  6D04                     blt        +0x6 /* 0000051C */
  472. 00000518  426D B3F6                clr.w      [A5 - 0x4C0A]
  473. label0000051C:
  474. 0000051C  302D B3F6                move.w     D0, [A5 - 0x4C0A]
  475. 00000520  526D B3F6                addq.w     [A5 - 0x4C0A], 1
  476. 00000524  2052                     movea.l    A0, [A2]
  477. 00000526  D0C0                     add.w      A0, D0
  478. 00000528  3830 0000                move.w     D4, [A0 + D0.w]
  479. 0000052C  42AD B3EC                clr.l      [A5 - 0x4C14]
  480. label00000530:
  481. 00000530  4AAD B3EC                tst.l      [A5 - 0x4C14]
  482. 00000534  6706                     beq        +0x8 /* 0000053C */
  483. 00000536  42AD B3E8                clr.l      [A5 - 0x4C18]
  484. 0000053A  6004                     bra        +0x6 /* 00000540 */
  485. label0000053C:
  486. 0000053C  52AD B3E8                addq.l     [A5 - 0x4C18], 1
  487. label00000540:
  488. 00000540  2F0B                     move.l     -[A7], A3
  489. 00000542  4EAD DD40                jsr        [A5 - 0x22C0]
  490. 00000546  486F 000C                pea.l      [A7 + 0xC]
  491. 0000054A  3F3C 000A                move.w     -[A7], 0xA /* '\n' */
  492. 0000054E  2F0B                     move.l     -[A7], A3
  493. 00000550  4EAD DDE8                jsr        [A5 - 0x2218]
  494. 00000554  4A85                     tst.l      D5
  495. 00000556  4FEF 000E                lea.l      A7, [A7 + 0xE]
  496. 0000055A  672E                     beq        +0x30 /* 0000058A */
  497. 0000055C  3F3C 01F4                move.w     -[A7], 0x1F4
  498. 00000560  486F 000A                pea.l      [A7 + 0xA]
  499. 00000564  206D B3E0                movea.l    A0, [A5 - 0x4C20]
  500. 00000568  4E90                     jsr        [A0]
  501. 0000056A  2F6F 000E 0006           move.l     [A7 + 0x6], [A7 + 0xE]
  502. 00000570  2F6F 0012 000A           move.l     [A7 + 0xA], [A7 + 0x12]
  503. 00000576  486F 0006                pea.l      [A7 + 0x6]
  504. 0000057A  2F3C 0001 0001           move.l     -[A7], 0x10001
  505. 00000580  A8A9                     syscall    InsetRect
  506. 00000582  486F 0006                pea.l      [A7 + 0x6]
  507. 00000586  A8A3                     syscall    EraseRect
  508. 00000588  5C4F                     addq.w     A7, 6
  509. label0000058A:
  510. 0000058A  594F                     subq.w     A7, 4
  511. 0000058C  A975                     syscall    TickCount
  512. 0000058E  201F                     move.l     D0, [A7]+
  513. 00000590  2B40 B3E4                move.l     [A5 - 0x4C1C], D0
  514. 00000594  594F                     subq.w     A7, 4
  515. 00000596  2F3C 434F 5245           move.l     -[A7], 0x434F5245 /* 'CORE' */
  516. 0000059C  3F04                     move.w     -[A7], D4
  517. 0000059E  A9A0                     syscall    GetResource
  518. 000005A0  205F                     movea.l    A0, [A7]+
  519. 000005A2  2448                     movea.l    A2, A0
  520. 000005A4  200A                     move.l     D0, A2
  521. 000005A6  6700 00D6                beq        +0xD8 /* 0000067E */
  522. 000005AA  2052                     movea.l    A0, [A2]
  523. 000005AC  2F68 0002 0010           move.l     [A7 + 0x10], [A0 + 0x2]
  524. 000005B2  2F68 0006 0014           move.l     [A7 + 0x14], [A0 + 0x6]
  525. 000005B8  204A                     movea.l    A0, A2
  526. 000005BA  A04A                     syscall    HNoPurge
  527. 000005BC  302F 0012                move.w     D0, [A7 + 0x12]
  528. 000005C0  48C0                     ext.l      D0
  529. 000005C2  362F 0016                move.w     D3, [A7 + 0x16]
  530. 000005C6  48C3                     ext.l      D3
  531. 000005C8  9680                     sub.l      D3, D0
  532. 000005CA  302F 0010                move.w     D0, [A7 + 0x10]
  533. 000005CE  48C0                     ext.l      D0
  534. 000005D0  382F 0014                move.w     D4, [A7 + 0x14]
  535. 000005D4  48C4                     ext.l      D4
  536. 000005D6  9880                     sub.l      D4, D0
  537. 000005D8  3C2F 000A                move.w     D6, [A7 + 0xA]
  538. 000005DC  48C6                     ext.l      D6
  539. 000005DE  302F 000E                move.w     D0, [A7 + 0xE]
  540. 000005E2  48C0                     ext.l      D0
  541. 000005E4  9086                     sub.l      D0, D6
  542. 000005E6  2A00                     move.l     D5, D0
  543. 000005E8  E08D                     lsr        D5, 8
  544. 000005EA  E08D                     lsr        D5, 8
  545. 000005EC  E08D                     lsr        D5, 8
  546. 000005EE  EE8D                     lsr        D5, 7
  547. 000005F0  DA80                     add.l      D5, D0
  548. 000005F2  E285                     asr        D5, 1
  549. 000005F4  DA86                     add.l      D5, D6
  550. 000005F6  302F 0008                move.w     D0, [A7 + 0x8]
  551. 000005FA  48C0                     ext.l      D0
  552. 000005FC  3C2F 0008                move.w     D6, [A7 + 0x8]
  553. 00000600  48C6                     ext.l      D6
  554. 00000602  342F 000C                move.w     D2, [A7 + 0xC]
  555. 00000606  48C2                     ext.l      D2
  556. 00000608  9486                     sub.l      D2, D6
  557. 0000060A  2C02                     move.l     D6, D2
  558. 0000060C  E08E                     lsr        D6, 8
  559. 0000060E  E08E                     lsr        D6, 8
  560. 00000610  E08E                     lsr        D6, 8
  561. 00000612  EE8E                     lsr        D6, 7
  562. 00000614  DC82                     add.l      D6, D2
  563. 00000616  E286                     asr        D6, 1
  564. 00000618  DC80                     add.l      D6, D0
  565. 0000061A  3005                     move.w     D0, D5
  566. 0000061C  48C0                     ext.l      D0
  567. 0000061E  3203                     move.w     D1, D3
  568. 00000620  48C1                     ext.l      D1
  569. 00000622  2401                     move.l     D2, D1
  570. 00000624  E08A                     lsr        D2, 8
  571. 00000626  E08A                     lsr        D2, 8
  572. 00000628  E08A                     lsr        D2, 8
  573. 0000062A  EE8A                     lsr        D2, 7
  574. 0000062C  D481                     add.l      D2, D1
  575. 0000062E  E282                     asr        D2, 1
  576. 00000630  9082                     sub.l      D0, D2
  577. 00000632  3F40 0012                move.w     [A7 + 0x12], D0
  578. 00000636  3003                     move.w     D0, D3
  579. 00000638  48C0                     ext.l      D0
  580. 0000063A  322F 0012                move.w     D1, [A7 + 0x12]
  581. 0000063E  48C1                     ext.l      D1
  582. 00000640  D280                     add.l      D1, D0
  583. 00000642  3F41 0016                move.w     [A7 + 0x16], D1
  584. 00000646  3006                     move.w     D0, D6
  585. 00000648  48C0                     ext.l      D0
  586. 0000064A  3204                     move.w     D1, D4
  587. 0000064C  48C1                     ext.l      D1
  588. 0000064E  2401                     move.l     D2, D1
  589. 00000650  E08A                     lsr        D2, 8
  590. 00000652  E08A                     lsr        D2, 8
  591. 00000654  E08A                     lsr        D2, 8
  592. 00000656  EE8A                     lsr        D2, 7
  593. 00000658  D481                     add.l      D2, D1
  594. 0000065A  E282                     asr        D2, 1
  595. 0000065C  9082                     sub.l      D0, D2
  596. 0000065E  3F40 0010                move.w     [A7 + 0x10], D0
  597. 00000662  3004                     move.w     D0, D4
  598. 00000664  48C0                     ext.l      D0
  599. 00000666  322F 0010                move.w     D1, [A7 + 0x10]
  600. 0000066A  48C1                     ext.l      D1
  601. 0000066C  D280                     add.l      D1, D0
  602. 0000066E  3F41 0014                move.w     [A7 + 0x14], D1
  603. 00000672  2F0A                     move.l     -[A7], A2
  604. 00000674  486F 0014                pea.l      [A7 + 0x14]
  605. 00000678  A8F6                     syscall    DrawPicture
  606. 0000067A  204A                     movea.l    A0, A2
  607. 0000067C  A049                     syscall    HPurge
  608. label0000067E:
  609. 0000067E  4EAD DD48                jsr        [A5 - 0x22B8]
  610. label00000682:
  611. 00000682  4FEF 0018                lea.l      A7, [A7 + 0x18]
  612. 00000686  4CDF 0C78                movem.l    D3,D4,D5,D6,A2,A3, [A7]+
  613. 0000068A  4E75                     rts
  614. 0000068C  48E7 1820                movem.l    -[A7], D3,D4,A2
  615. 00000690  4FEF FFF0                lea.l      A7, [A7 - 0x10]
  616. 00000694  246F 0020                movea.l    A2, [A7 + 0x20]
  617. 00000698  302A 0002                move.w     D0, [A2 + 0x2]
  618. 0000069C  48C0                     ext.l      D0
  619. 0000069E  362A 0002                move.w     D3, [A2 + 0x2]
  620. 000006A2  48C3                     ext.l      D3
  621. 000006A4  342A 0006                move.w     D2, [A2 + 0x6]
  622. 000006A8  48C2                     ext.l      D2
  623. 000006AA  9483                     sub.l      D2, D3
  624. 000006AC  2602                     move.l     D3, D2
  625. 000006AE  E08B                     lsr        D3, 8
  626. 000006B0  E08B                     lsr        D3, 8
  627. 000006B2  E08B                     lsr        D3, 8
  628. 000006B4  EE8B                     lsr        D3, 7
  629. 000006B6  D682                     add.l      D3, D2
  630. 000006B8  E283                     asr        D3, 1
  631. 000006BA  D680                     add.l      D3, D0
  632. 000006BC  3012                     move.w     D0, [A2]
  633. 000006BE  48C0                     ext.l      D0
  634. 000006C0  3812                     move.w     D4, [A2]
  635. 000006C2  48C4                     ext.l      D4
  636. 000006C4  342A 0004                move.w     D2, [A2 + 0x4]
  637. 000006C8  48C2                     ext.l      D2
  638. 000006CA  9484                     sub.l      D2, D4
  639. 000006CC  2802                     move.l     D4, D2
  640. 000006CE  E08C                     lsr        D4, 8
  641. 000006D0  E08C                     lsr        D4, 8
  642. 000006D2  E08C                     lsr        D4, 8
  643. 000006D4  EE8C                     lsr        D4, 7
  644. 000006D6  D882                     add.l      D4, D2
  645. 000006D8  E284                     asr        D4, 1
  646. 000006DA  D880                     add.l      D4, D0
  647. 000006DC  3003                     move.w     D0, D3
  648. 000006DE  48C0                     ext.l      D0
  649. 000006E0  5380                     subq.l     D0, 1
  650. 000006E2  3F40 000A                move.w     [A7 + 0xA], D0
  651. 000006E6  3003                     move.w     D0, D3
  652. 000006E8  48C0                     ext.l      D0
  653. 000006EA  5280                     addq.l     D0, 1
  654. 000006EC  3F40 000E                move.w     [A7 + 0xE], D0
  655. 000006F0  3004                     move.w     D0, D4
  656. 000006F2  48C0                     ext.l      D0
  657. 000006F4  5380                     subq.l     D0, 1
  658. 000006F6  3F40 0008                move.w     [A7 + 0x8], D0
  659. 000006FA  3004                     move.w     D0, D4
  660. 000006FC  48C0                     ext.l      D0
  661. 000006FE  5280                     addq.l     D0, 1
  662. 00000700  3F40 000C                move.w     [A7 + 0xC], D0
  663. 00000704  2E92                     move.l     [A7], [A2]
  664. 00000706  2F6A 0004 0004           move.l     [A7 + 0x4], [A2 + 0x4]
  665. 0000070C  4857                     pea.l      [A7]
  666. 0000070E  2F3C 0001 0001           move.l     -[A7], 0x10001
  667. 00000714  A8A9                     syscall    InsetRect
  668. 00000716  4857                     pea.l      [A7]
  669. 00000718  4EAD DD50                jsr        [A5 - 0x22B0]
  670. 0000071C  4878 0001                push.l     0x1
  671. 00000720  486F 0008                pea.l      [A7 + 0x8]
  672. 00000724  486F 0014                pea.l      [A7 + 0x14]
  673. 00000728  4EAD DB9E                jsr        [A5 - 0x2462]
  674. 0000072C  4EAD DD58                jsr        [A5 - 0x22A8]
  675. 00000730  4FEF 0020                lea.l      A7, [A7 + 0x20]
  676. 00000734  4CDF 0418                movem.l    D3,D4,A2, [A7]+
  677. 00000738  4E75                     rts
  678. 0000073A  48E7 1E30                movem.l    -[A7], D3,D4,D5,D6,A2,A3
  679. 0000073E  4FEF FEF2                lea.l      A7, [A7 - 0x10E]
  680. 00000742  382F 012A                move.w     D4, [A7 + 0x12A]
  681. 00000746  97CB                     sub.l      A3, A3
  682. 00000748  3004                     move.w     D0, D4
  683. 0000074A  48C0                     ext.l      D0
  684. 0000074C  5980                     subq.l     D0, 4
  685. 0000074E  677C                     beq        +0x7E /* 000007CC */
  686. 00000750  5780                     subq.l     D0, 3
  687. 00000752  672A                     beq        +0x2C /* 0000077E */
  688. 00000754  5380                     subq.l     D0, 1
  689. 00000756  674C                     beq        +0x4E /* 000007A4 */
  690. 00000758  5380                     subq.l     D0, 1
  691. 0000075A  6742                     beq        +0x44 /* 0000079E */
  692. 0000075C  4E71                     nop
  693. 0000075E  41EF 0006                lea.l      A0, [A7 + 0x6]
  694. 00000762  2448                     movea.l    A2, A0
  695. 00000764  4850                     pea.l      [A0]
  696. 00000766  302D 135E                move.w     D0, [A5 + 0x135E]
  697. 0000076A  48C0                     ext.l      D0
  698. 0000076C  0680 0000 0085           addi.l     D0, 0x85
  699. 00000772  3F00                     move.w     -[A7], D0
  700. 00000774  3F3C 0001                move.w     -[A7], 0x1
  701. 00000778  4EAD DA4E                jsr        [A5 - 0x25B2]
  702. 0000077C  607A                     bra        +0x7C /* 000007F8 */
  703. label0000077E:
  704. 0000077E  41EF 0006                lea.l      A0, [A7 + 0x6]
  705. 00000782  2448                     movea.l    A2, A0
  706. 00000784  4850                     pea.l      [A0]
  707. 00000786  302D 135E                move.w     D0, [A5 + 0x135E]
  708. 0000078A  48C0                     ext.l      D0
  709. 0000078C  0680 0000 0085           addi.l     D0, 0x85
  710. 00000792  3F00                     move.w     -[A7], D0
  711. 00000794  3F3C 0002                move.w     -[A7], 0x2
  712. 00000798  4EAD DA4E                jsr        [A5 - 0x25B2]
  713. 0000079C  605A                     bra        +0x5C /* 000007F8 */
  714. label0000079E:
  715. 0000079E  45ED B2DC                lea.l      A2, [A5 - 0x4D24]
  716. 000007A2  6054                     bra        +0x56 /* 000007F8 */
  717. label000007A4:
  718. 000007A4  594F                     subq.w     A7, 4
  719. 000007A6  302D 135E                move.w     D0, [A5 + 0x135E]
  720. 000007AA  48C0                     ext.l      D0
  721. 000007AC  0680 0000 0080           addi.l     D0, 0x80
  722. 000007B2  3F00                     move.w     -[A7], D0
  723. 000007B4  A9BA                     syscall    GetString
  724. 000007B6  205F                     movea.l    A0, [A7]+
  725. 000007B8  2648                     movea.l    A3, A0
  726. 000007BA  2008                     move.l     D0, A0
  727. 000007BC  6700 00F4                beq        +0xF6 /* 000008B2 */
  728. 000007C0  2F0B                     move.l     -[A7], A3
  729. 000007C2  4EAD DD80                jsr        [A5 - 0x2280]
  730. 000007C6  2448                     movea.l    A2, A0
  731. 000007C8  584F                     addq.w     A7, 4
  732. 000007CA  602C                     bra        +0x2E /* 000007F8 */
  733. label000007CC:
  734. 000007CC  594F                     subq.w     A7, 4
  735. 000007CE  2F3C 5156 4552           move.l     -[A7], 0x51564552 /* 'QVER' */
  736. 000007D4  302D 135E                move.w     D0, [A5 + 0x135E]
  737. 000007D8  48C0                     ext.l      D0
  738. 000007DA  0680 0000 0080           addi.l     D0, 0x80
  739. 000007E0  3F00                     move.w     -[A7], D0
  740. 000007E2  A9A0                     syscall    GetResource
  741. 000007E4  205F                     movea.l    A0, [A7]+
  742. 000007E6  2648                     movea.l    A3, A0
  743. 000007E8  2008                     move.l     D0, A0
  744. 000007EA  6700 00C6                beq        +0xC8 /* 000008B2 */
  745. 000007EE  2F0B                     move.l     -[A7], A3
  746. 000007F0  4EAD DD80                jsr        [A5 - 0x2280]
  747. 000007F4  2448                     movea.l    A2, A0
  748. 000007F6  584F                     addq.w     A7, 4
  749. label000007F8:
  750. 000007F8  486F 0106                pea.l      [A7 + 0x106]
  751. 000007FC  3F04                     move.w     -[A7], D4
  752. 000007FE  2F2F 0132                move.l     -[A7], [A7 + 0x132]
  753. 00000802  4EAD DDE8                jsr        [A5 - 0x2218]
  754. 00000806  362F 0112                move.w     D3, [A7 + 0x112]
  755. 0000080A  48C3                     ext.l      D3
  756. 0000080C  302F 0116                move.w     D0, [A7 + 0x116]
  757. 00000810  48C0                     ext.l      D0
  758. 00000812  9083                     sub.l      D0, D3
  759. 00000814  2800                     move.l     D4, D0
  760. 00000816  E08C                     lsr        D4, 8
  761. 00000818  E08C                     lsr        D4, 8
  762. 0000081A  E08C                     lsr        D4, 8
  763. 0000081C  EE8C                     lsr        D4, 7
  764. 0000081E  D880                     add.l      D4, D0
  765. 00000820  E284                     asr        D4, 1
  766. 00000822  D883                     add.l      D4, D3
  767. 00000824  302F 0110                move.w     D0, [A7 + 0x110]
  768. 00000828  48C0                     ext.l      D0
  769. 0000082A  3A2F 0110                move.w     D5, [A7 + 0x110]
  770. 0000082E  48C5                     ext.l      D5
  771. 00000830  342F 0114                move.w     D2, [A7 + 0x114]
  772. 00000834  48C2                     ext.l      D2
  773. 00000836  9485                     sub.l      D2, D5
  774. 00000838  2A02                     move.l     D5, D2
  775. 0000083A  E08D                     lsr        D5, 8
  776. 0000083C  E08D                     lsr        D5, 8
  777. 0000083E  E08D                     lsr        D5, 8
  778. 00000840  EE8D                     lsr        D5, 7
  779. 00000842  DA82                     add.l      D5, D2
  780. 00000844  E285                     asr        D5, 1
  781. 00000846  DA80                     add.l      D5, D0
  782. 00000848  2F0A                     move.l     -[A7], A2
  783. 0000084A  A88C                     syscall    StringWidth
  784. 0000084C  301F                     move.w     D0, [A7]+
  785. 0000084E  3600                     move.w     D3, D0
  786. 00000850  486F 000C                pea.l      [A7 + 0xC]
  787. 00000854  4EAD DD90                jsr        [A5 - 0x2270]
  788. 00000858  3C00                     move.w     D6, D0
  789. 0000085A  3004                     move.w     D0, D4
  790. 0000085C  48C0                     ext.l      D0
  791. 0000085E  3203                     move.w     D1, D3
  792. 00000860  48C1                     ext.l      D1
  793. 00000862  2401                     move.l     D2, D1
  794. 00000864  E08A                     lsr        D2, 8
  795. 00000866  E08A                     lsr        D2, 8
  796. 00000868  E08A                     lsr        D2, 8
  797. 0000086A  EE8A                     lsr        D2, 7
  798. 0000086C  D481                     add.l      D2, D1
  799. 0000086E  E282                     asr        D2, 1
  800. 00000870  9082                     sub.l      D0, D2
  801. 00000872  3F00                     move.w     -[A7], D0
  802. 00000874  302F 0012                move.w     D0, [A7 + 0x12]
  803. 00000878  48C0                     ext.l      D0
  804. 0000087A  3205                     move.w     D1, D5
  805. 0000087C  48C1                     ext.l      D1
  806. 0000087E  3406                     move.w     D2, D6
  807. 00000880  48C2                     ext.l      D2
  808. 00000882  2F40 000E                move.l     [A7 + 0xE], D0
  809. 00000886  2002                     move.l     D0, D2
  810. 00000888  E088                     lsr        D0, 8
  811. 0000088A  E088                     lsr        D0, 8
  812. 0000088C  E088                     lsr        D0, 8
  813. 0000088E  EE88                     lsr        D0, 7
  814. 00000890  D082                     add.l      D0, D2
  815. 00000892  E280                     asr        D0, 1
  816. 00000894  9280                     sub.l      D1, D0
  817. 00000896  D2AF 000E                add.l      D1, [A7 + 0xE]
  818. 0000089A  3F01                     move.w     -[A7], D1
  819. 0000089C  A893                     syscall    MoveTo
  820. 0000089E  2F0A                     move.l     -[A7], A2
  821. 000008A0  A884                     syscall    DrawString
  822. 000008A2  200B                     move.l     D0, A3
  823. 000008A4  4FEF 000C                lea.l      A7, [A7 + 0xC]
  824. 000008A8  6708                     beq        +0xA /* 000008B2 */
  825. 000008AA  2F0B                     move.l     -[A7], A3
  826. 000008AC  4EAD DD88                jsr        [A5 - 0x2278]
  827. 000008B0  584F                     addq.w     A7, 4
  828. label000008B2:
  829. 000008B2  4FEF 010E                lea.l      A7, [A7 + 0x10E]
  830. 000008B6  4CDF 0C78                movem.l    D3,D4,D5,D6,A2,A3, [A7]+
  831. 000008BA  205F                     movea.l    A0, [A7]+
  832. 000008BC  5C4F                     addq.w     A7, 6
  833. 000008BE  4ED0                     jmp        [A0]
  834. 000008C0  0000 0000                ori.b      D0, 0x0
  835. 000008C4  0000 0000                ori.b      D0, 0x0
  836. 000008C8  0000 0000                ori.b      D0, 0x0
  837.